COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST"
C00003 ENDMK
C⊗;
BEGIN "TEST"
	INTEGER I,J,K;
	DEFINE CAR(X)="(MEMORY[(X)]LSH -22)";
	DEFINE CDR(X)="(MEMORY[(X)]LAND '777777)";
	I←CAR(K);
	J←CDR(K);
END "TEST";